10 CLEAR,&H9C3F:FORI=&H1TO&H17:READX:POKE&H9C3F+I,VAL("&H"+X$):NEXTI:END
20 DATA8E,25,A4,10,8E,0,A,EE,84,30,2,10,AF,84,1F,31,31,2A,EE,84,26,F3,39